#ifndef STHREADS_H 
#define STHREADS H 



#ifndef _WIN3 2 

#error ERROR: Win32 sthreads.h included in non-Win3 2 program. 
#endif 

#ifndef _MT 

#error ERROR: Sthreads program must be linked with multithreaded libraries. 
#endif 

#ifdef cplusplus 

extern "C" { 
#endif 

/* */ 

/* Sthreads: A Structured Thread Library for Shared-Memory Multiprocessing */ 
/* Version 1.0 for Windows NT */ 
/* */ 
/* Author: John Thornley, Computer Science Dept., Caltech. */ 
/* Date: September 1998. */ 
/* */ 
/* Copyright (c) 1998 by John Thornley. */ 
/* */ 

/* */ 

/* Error codes */ 
/* */ 



#def ine 
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0 


#def ine 
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1 


ialfine 
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.ERROR. 
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2 


#def ine 
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3 


#dlf ine 


STHREADS. 


.ERROR. 


.SYNCCREATE 


4 


#af f ine 


STHREADS_ 
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5 


#i3ef ine 


STHREADS. 


.ERROR. 
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6 


#j^f ine 


STHREADS. 


.ERROR. 
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7 


#Hef ine 


STHREADS. 


.ERROR. 
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8 


il^fine 
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.ERROR. 
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9 


#Hef ine 


STHREADS. 


.ERROR. 


.LOCKNOTHELD 


10 


#3d^f ine 


STHREADS. 


.ERROR. 
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11 


#*^f ine 


STHREADS. 


.ERROR. 


.UNSPECIFIED 


12 
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/* */ 

/* Error string maximxim length */ 
/* */ 

#define S THREAD S_ERROR_STRING_MAX 100 

/* Requirements: */ 

/* - STHREADS_ERROR_STRING_MAX >= 1 . */ 

/* - STHREADS_ERROR_STRING_MAX <= INT_MAX . */ 

/* */ 

/* Processors */ 
/* */ 



#define STHREADS_PROCESSORS_MAX 32 
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#define STHREADS_PROCESSOR_^^»000 

#define STHREADS_PROCESSOR_1^^1001 

/* Requirements: */ 

/* - STHREADS_PROCESSORS_MAX >= 1 . */ 

/* - STHREADS_PROCESSORS_MAX <= INT_MAX. */ 

/* - STHREADS_PROCESSOR_YES >= INT_MIN. */ 

/* - STHREADS_PROCESSOR_YES <= INT_MAX . */ 

/* - STHREADS_PROCESSOR_NO >= INT_MIN. */ 

/* - STHREADS_PROCESSOR_NO <= INT_MAX. */ 

/* - STHREADS_PROCESSOR_YES != STHREADS_PROCESSOR_NO . */ 

/* Definitions: */ 

/* - ValidProcessorStatus (p) = */ 

/* p == STHREADS_PROCESSOR_PRESENT | | */ 

/* p == STHREADS_PROCESSOR_NOT_PRESENT. */ 



/* */ 

/* Mappings of statements/iterations to threads */ 
/* */ 



#define STHREADS_MAPPING_SIMPLE 3 000 

#define STHREADS_MAPPING_DYNAMIC 3 001 

#define STHREADS_MAPPING_BLOCKED 3 002 

#define STHREADS_MAPPING_INTERLEAVED 3 003 



/* Requirements: */ 

/* - STHREADS_MAPPING_SIMPLE > 0. */ 

/* - STHREADS_MAPPING_DYNAMIC == STHREADS_MAPPING_SIMPLE +1. */ 

/* - STHREADS_MAPPING_BLOCKED == STHREADS_MAPPING_DYNAMIC +1. */ 

/t^l- STHREADS_MAPPING_INTERLEAVED == STHREADS„MAPPING_BLOCKED + 1. */ 

/*^- STHREADS_MAPPING_INTERLEAVED < INT_MAX . */ 

/*-Def initions : */ 

/^n~ ValidMapping (m) = */ 

/^^ m == STHREADS_MAPPING_SIMPLE | */ 

/i*^'' m == STHREADS_MAPPING_DYNAMIC | */ 

/M m == STHREADS_MAPPING_BLOCKED | */ 

/fn m STHREADS_MAPPING_INTERLEAVED . */ 

/U */ 

Conditions testable in regular for loop control */ 

/f.^ */ 

ikysfine STHREADS_CONDITION_LT 4000 
#h4fine STHREADS_CONDITION_LE 4001 
#^ifine STHREADS_CONDITION„GT 4002 
#define S THREAD S_CONDIT I ON_GE 4003 

/ J Requirements : */ 

/* - STHREADS_CONDITION_LT > 0, */ 

/* - STHREADS_CONDITION_LE == STHREADS_CONDITION_LT +1. */ 

/* - STHREADS_CONDITION_GT == STHREADS_CONDITION_LE +1. */ 

/* - STHREADS_CONDITION_GE == STHREADS_CONDITION_GT +1. */ 

/* - STHREADS_CONDITION_GE < INT_MAX . */ 



/* Definitions: 

/* - ValidCondition(c) = 

/* C == STHREADS_CONDITION_LT 

/* c == STHREADS_CONDITION_LE 

/* C == STHREADS_CONDITION_GT 

/* c == STHREADS_CONDITION_GE. 



/* */ 

/* Stack sizes (in bytes) */ 
/* */ 

#define STHREADS_STACK_SIZE_MINIMUM 163 84 
#define STHREADS_STACK_SIZE_DEFAULT 262144 

/* Requirements: */ 

/* - STHREADS_STACK_SIZE_MINIMUM >= 0 . */ 

/* - STHREADS_STACK_SIZE_DEFAULT >= STHREADS_STACK_SIZE_MINIMUM . */ 

/* - STHREADS_STACK_SIZE_DEFAULT <= UINT_MAX. */ 
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/* Definitions: */ 

/* - ValidStackSize (s) = */ 

/* s >= STHREADS_STACK_SIZE_MINIMUM. */ 

/* */ 

/* Priorities */ 

/* */ 

#define STHREADS_PRIORITY_LOWEST -2 
#define STHREADS_PRIORITY_HIGHEST +2 

#define STHREADS_PRIORITY_PARENT 10000 /* Inherit priority of parent thread. */ 

/* Requirements: */ 

/* - STHREADS_PRIORITY_LOWEST > INT_MIN. */ 

/* - STHREADS_PRIORITY_HIGHEST >= STHREADS_PRIORITY_LOWEST . */ 

/* - STHREADS_PRIORITY_HIGHEST < INT_MAX . */ 

/* - STHREADS_PRIORITY_PARENT < STHREADS_PRIORITY_LOWEST | | */ 

/* STHREADS_PRIORITY_PARENT > STHREADS_PRIORITY_HIGHEST . */ 

/* Definitions: */ 

/* - ValidPriority (p) = */ 

/* STHREADS_PRIORITY_LOWEST <= p && p <= STHREADS_PRIORITY_HIGHEST . */ 

/* */ 

/* Print error message to string */ 

/* */ 

void SthreadsWriteErrorMessage (int errorCode, char errorString [ ] ) ; 

/ff J Input Arguments: */ 

/*=:- errorCode : error code returned by an Sthreads function call. */ 

Output Arguments: */ 

/!^=_ errorString : error message as a char string. */ 

/ ?n Preconditions : */ 

/K- errorString != NULL && */ 

/'f^_ errorString is a string of at least STHREADS_ERROR_STRING_MAX chars. */ 

7,^=^ Postconditions : */ 

/fn- errorString is '\0' terminated string of chars in the range ' ' .. */ 

/p^- 1 <= strlen (errorString) < STHREADS_ERROR_STRING_MAX . */ 

Atomicity : */ 

/* - Atomic with respect to all operations, */ 

/flT 

Handle errors. */ 

/hi */ 

void SthreadsErrorHandler (int errorCode); 

J Input Arguments: */ 

/* - errorCode : error code returned by an Sthreads function call. */ 

/* Operation: */ 

/* - error handler function is called with errorCode as argument. */ 

/* Default Error Handler Function: */ 

/* - Displays error message and terminates normal program execution. */ 

/* Atomicity: */ 

/* - Not atomic with respect to SthreadsSetErrorHandler operations. */ 

/* - Atomic with respect to all other operations. */ 

/* */ 

/* Set error handler function. */ 

/* */ 

int SthreadsSetErrorHandler (void (*errorHandler) (int errorCode)); 

/* Input Arguments: */ 

/* - errorHandler : function to handle errors. */ 

/* Preconditions: */ 

/* - errorHandler NULL | | */ 

/* errorHandler is valid void (*) (int) function. */ 

/* Postconditions: */ 

/* - if (errorHandler == NULL) */ 

/* error handler function is set to default error handler function. */ 

/* - if (errorHandler != NULL) */ 
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*/* error handler func is set to ErrorHandler . */ 

/* Atomicity: */ 

/* - Not atomic with respect to */ 

/* SthreadsHandleError and SthreadsSetErrorHandler operations. */ 

/* - Atomic with respect to all other operations. */ 

/* */ 

/* Control the processors used by program execution. */ 

/* */ 

int SthreadsGetSystemProcessors (int processor []) ; 

/* Output Arguments: */ 

/* - processors : processors that exist on the system. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - processor != NULL && */ 

/* processor is an array of at least STHREADS„PROCESSORS_MAX ints . */ 

/* Postconditions: */ 

/* - forall (p = 0; p < STHREADS_PROCESSORS_MAX ; p++) */ 

/* ValidProcessorStatus (processor [p] ) && */ 

/* {if (processor [p] == STHREADS_PROCESSOR_YES ) */ 

/* a processor numbered p exists on the system) && */ 

/* (if (processor [p] == STHREADS_PROCESSOR_NO) */ 

/* a processor numbered p does not exist on the system) . */ 

/* Atomicity: */ 

/* - Atomic with respect to all operations. */ 

int SthreadsSetProgramProcessors (int processor []) ; 

Input Arguments: */ 
/'^-■i- processor : processors on which the threads of the program may execute. */ 

/^^ Function Return: */ 

/fn - error code. */ 

Preconditions : */ 

/'^^ - processor != NULL */ 

/N processor is an array of at least STHREADS_PROCESSORS_MAX ints. */ 

/fn- forall (p = 0; p < STHREADS_PROCESSORS_MAX; p++) */ 

ValidProcessorStatus (processor [p] ) && */ 

/^^ if (processor [p] == STHREADS_PROCESSOR_YES ) */ 

/ti a processor numbered p exists on the system. */ 

It^^- exists (p = 0; p < STHREADS_PROCESSORS_iy[AX; p++) */ 

processor[p] == STHREADS_PROCESSOR_YES . */ 

/ Atomicity: */ 

/M- Must be called when program execution consists of a single thread. */ 

ifij SthreadsGetProgramProcessors ( int processor []) ; 

/fjOutput Arguments: */ 

/*"- processors : processors on which the program may execute. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - processor != NULL && */ 

/* processor is an array of at least STHREADS_PROCESSORS_MAX ints. */ 

/* Postconditions: */ 

/* - forall (p = 0; p < STHREADS_PROCESSORS_MAX; p++) */ 

/* ValidProcessorStatus (processor [p] ) && */ 

/* (if (processor [p] == STHREADS_PROCESSOR_YES ) */ 

/* the program may execute on processor number p) && */ 

/* (if (processor [p] == STHREADS_PROCESSOR_NO) */ 

/* the program may not execute on processor number p) . */ 

/* Atomicity: */ 

/* - Not atomic with respect to */ 

/* SetProgramProcessors and SetNumProgramProcessors operations. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsSetThreadProcessors (int processor []) ; 

/* Input Arguments: */ 

/* - processor : processors on which the thread may execute. */ 

/* Function Return: */ 

/* - error code. */ 
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/* Preconditions: */ 

/* - processor != NULL && */ 

/* processor is an array of at least STHREADS_PROCESSORS_MAX ints. */ 

/* - forall (p = 0; p < STHREADS_PROCESSORS_MAX; p++) */ 

/* ValidProcessorStatus (processor [p] ) && */ 

/* if (processor [p] == STHREADS_PROCESSOR_YES ) */ 

/* the prograin may execute on processor number p. */ 

/* - exists (p = 0; p < STHREADS_PROCESSORS_MAX; p++) */ 

/* processor [p] == STHREADS_PROCESSOR_YES . */ 

/* Atomicity: */ 

/* - Not atomic with respect to */ 

/* SetProgramProcessors and SetNumProgramProcessors operations. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsGetNumSystemProcessors (int *numProcessors) ; 

/* Output Arguments: */ 

/* - numProcessors : number of processors that exist on the system. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 
/* - numProcessors != NULL && numProcessors points to a valid int variable. */ 

/* Postconditions: */ 

/* - *numProcessors == number of processors that exist on the system. */ 

/* Atomicity: */ 

/* - Atomic with respect to all operations. */ 

int SthreadsSetNumProgramProcessors (int numProcessors); 

/* Input Arguments: */ 
/tj- numProcessors : number of processors on which the threads of the program */ 

/*'^ may execute. */ 

Function Return: */ 

error code. */ 

/f nPreconditions : */ 

/f_,- numProcessors >= 1 . */ 

Z^"- numProcessors <= number of processors that exist on the system. */ 

/h=Atomicity : */ 

/fn- Must be called when program execution consists of a single thread. */ 

/U */ 

/* Multithreaded block */ 

/fr^ */ 

i' I 

ihH SthreadsBlock( 

int numStatements, void ( *statement [ ] ) ( void *args) , void *args, 
,1 int mapping, int numThreads, 
~_ int priority, unsigned int stackSize) ; 

/?;3^^P^t Arguments: */ 

/* - numStatements : number of statements in block. */ 

/* - statement : functions representing statements. */ 

/* - args : pointer to arguments of the statements. */ 

/* - mapping : mapping of statements onto threads. */ 

/* - numThreads : number of threads. */ 

/* - priority : priority of threads. */ 

/* - stackSize : stack size of threads. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - numStatements >= 0. */ 

/* - statement != NULL && */ 

/* statement is an array of at least numStatements functions. */ 

/* - forall (s = 0; s < numStatements; s++) */ 

/* statement [s] != NULL && */ 

/* statement[s] is a valid void (*)(void *) function. */ 

/* - ValidMapping( mapping) . */ 

/* - if (mapping != STHREADS_MAPPING_SIMPLE) */ 

/* (niimThreads > 0) | | (numThreads == 0 && numStatements == 0) . */ 

/* - ValidPriority (priority) | | priority == STHREADS_PRIORITY_PARENT . */ 

/* - ValidStackSize (StackSize) . */ 

/* Atomicity: */ 

/* - Atomic with respect to all operations. */ 
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/* 
/* 



Multithreaded regular 



f o]^Wop 



int SthreadsRegularForLoop { 

void (* chunk) (int initial, int bound, int step, void *args), void *args, 
int initial, int condition, int bound, int step, 
int chunkSize, int mapping, int numThreads, 
int priority, unsigned int stackSize) ; 



/* Input Arguments: */ 

/* - chunk : function to execute iterations of loop body. */ 

/* - args : pointer to arguments of loop body. */ 

/* - initial : initial value of control variable. */ 

/* - condition : condition between control variable and bound value. */ 

/* - bound : bound value of control variable. */ 

/* - step : step value of control variable. */ 

/* - chunkSize : number of iterations per chunk. */ 

/* - mapping : mapping of chunks onto threads. */ 

/* - numThreads : number of threads. */ 

/* - priority : priority of threads. */ 

/* - StackSize : stack size of threads. */ 

/* Function Return: */ 

/ * - error code . * / 

/* Preconditions: */ 

/* - chunk != NULL && */ 

/* chunk is a valid void {*) (int, int, int, void *) function. */ 

/* - ValidCondition (condition) . */ 

/* - ! InfiniteRange (initial, condition, bound, step). */ 

/* - (chunkSize > 0) | | */ 

/f2 (chunkSize == 0 && NullRange ( initial , condition, bound, step)). */ 

/*=- ValidMapping (mapping) . */ 

/^i- if (mapping != STHREADS_MAPPING_SIMPLE) */ 

/*- (numThreads > 0) | | */ 

/fn (numThreads == 0 && NullRange ( initial , condition, bound, step)). */ 

/i^- ValidPriority (priority) | | priority == STHREADS_PRIORITY_PARENT . */ 

ValidStackSize (stackSize) . */ 

/f HDef initions : */ 

/i^-,- InfiniteRange ( initial, condition, bound, step) = */ 

(condition STHREADS_CONDITION_LT && */ 

/* initial < bound && step <= 0) | | */ 

/h^ (condition STHREADS_CONDITION_LE && */ 

initial <= bound && step <= 0) | j */ 

Z**"^ (condition == STHREADS_CONDITION_GT && */ 

/M initial > bound && step >= 0) | | */ 

/*Z (condition == STHREADS_CONDITION_GE */ 

/*=; initial >= bound && step >= 0) . */ 

/*^_ NullRange (initial , condition, bound, step) = */ 

/*\A (condition == STHREADS_CONDITION„LT && initial >^ bound) | */ 

/* (condition == STHREADS_CONDITION_LE initial > bound) | */ 

/* (condition == STHREADS_CONDITION_GT && initial <~ bound) | */ 

/* (condition == STHREADS_CONDITION_GE && initial < bound) . */ 

/* Atomicity: */ 

/* - Atomic with respect to all operations. */ 

/* */ 

/* Flags */ 

/* */ 

typedef struct { 

unsigned char value [16]; 
} SthreadsFlag; 

int SthreadsFlaglnitialize (SthreadsFlag *flag) ; 

/* Input-Output Arguments: */ 

/* - flag : flag variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - flag != NULL && flag points to a valid flag variable. */ 

/* - !Initialized(f lag) . */ 

/* Atomicity: */ 
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/* - Not atomic with respec all other operations on flag. */ 

/* - Atomic with respect to . other operations. */ 

int SthreadsFlagFinalize (SthreadsFlag *flag) ; 

/* Input-Output Arguments: */ 

/* - flag : flag variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - flag != NULL ScSc flag points to a valid flag variable. */ 

/* - lnitialized(f lag) && !Finalized{flag) . */ 

/* - NumWaiting(flag) == 0. */ 

/* Atomicity: */ 

/* - Not atomic with respect to all other operations on flag. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsFlagSet (SthreadsFlag *f lag) ; 

/* Input-Output Arguments: */ 

/* - flag : flag variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - flag != NULL && flag points to a valid flag variable. */ 

/* - Initialized(f lag) && !Finalized(flag) , */ 

/* Atomicity: */ 

/* - Atomic with respect to Set and Check operations on flag. */ 

/* - Not atomic with respect to other operations on flag. */ 

/* - Atomic with respect to all other operations. */ 

inS SthreadsFlagCheck( SthreadsFlag *f lag) ; 

/^S Input-Output Arguments: */ 

/t'n- flag : flag variable. */ 

/^"'Function Return: */ 

/^"- error code. */ 

/^^^Preconditions : */ 

/^F=- flag != NULL && flag points to a valid flag variable. */ 

/*!:- Initialized(f lag) && ! Finalized ( flag) . */ 

/*dAtomicity : */ 

/f. - Atomic with respect to Set and Check operations on flag. */ 

/*^- Not atomic with respect to other operations on flag. */ 

/t::- Atomic with respect to all other operations. */ 

ih^. SthreadsFlagReset (SthreadsFlag *flag) ; 

/'*^ Input -Output Arguments: */ 

/'*^iJ- flag : flag variable. */ 

/f J Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - flag != NULL ScSl flag points to a valid flag variable. */ 

/* - Initialized(flag) && ! Finalized( f lag) . */ 

/* - NumWaiting(flag) ==0. */ 

/* Atomicity: */ 

/* - Not atomic with respect to other operations on flag. */ 

/* - Atomic with respect to all other operations. */ 

/* */ 

/* Counters */ 

/* */ 

typedef struct { 

unsigned char value[40]; 
} SthreadsCounter ; 

int SthreadsCounterlnitialize (SthreadsCounter *counter) ; 

/* Input-Output Arguments: */ 

/* - counter : pointer to counter variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 
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/* - counter != NULL && coxj^^^B points to a valid counter varia */ 

/* - ! Initialized(counter) .^^^ */ 

/* Atomicity: */ 

/* - Not atomic with respect to all other operations on counter. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsCounterFinalize (SthreadsCounter *counter) ; 

/* Input-Output Arguments: */ 

/* - counter : pointer to counter variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - counter != NULL && counter points to a valid counter variable. */ 

/* - Initialized(counter) && ! Finalized{counter) . */ 

/* - NumWa i ting (counter ) ==0. */ 

/* Atomicity: */ 

/* - Not atomic with respect to all other operations on counter. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsCounter Increment (SthreadsCounter ^counter, unsigned int amount); 

/* Input-Output Arguments: */ 

/* - counter : pointer to counter variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - counter != NULL && counter points to a valid counter variable. */ 

/* - Initialized(counter) && ! Finalized (counter ) . */ 

/* - Count (counter) <= UINT_MAX - amount. */ 

Atomicity: */ 

/'*t- Atomic with respect to Increment and Check operations on counter. */ 

/^J- Not atomic with respect to other operations on counter. */ 

/t^z- Atomic with respect to all other operations. */ 

i'nt SthreadsCounterCheck (SthreadsCounter *counter, unsigned int value); 

Input -Output Arguments: */ 

- counter : pointer to counter variable. */ 

/i*!^ Function Return: */ 

/V^A- error code. */ 

/:f Preconditions: */ 

/i*^ - counter != NULL && counter points to a valid counter variable. */ 

/!*" - Initialized (counter ) && ! Finalized(counter ) . */ 

/!*y Atomicity: */ 

/|*^^ - Atomic with respect to Increment and Check operations on counter. */ 

/ - Not atomic with respect to other operations on counter. */ 

r^Z- Atomic with respect to all other operations. */ 

ipjt SthreadsCounterReset (SthreadsCounter *counter) ; 

/* Input-Output Arguments: */ 

/* - counter : pointer to counter variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - counter != NULL && counter points to a valid counter variable. */ 

/* - Initialized (counter) && ! Finalized(counter) . */ 

/* - NumWai ting (counter ) ==0. */ 

/* Atomicity: */ 

/* - Not atomic with respect to all other operations on counter. */ 

/* - Atomic with respect to all other operations. */ 

/* */ 

/* Locks */ 

/* */ 

typedef struct { 

unsigned char value [36]; 
) SthreadsLock; 

int SthreadsLocklnitialize (SthreadsLock *lock) ; 

/* Input-Output Arguments: */ 
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/* - lock : pointer to lock^^Blable . */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - lock != NULL && lock points to a valid lock variable. */ 

/* - llnitializeddock) . */ 

/* Atomicity: */ 

/* - Not atomic with respect to all other operations on lock. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsLockFinalize (SthreadsLock *lock) ; 

/* Input-Output Arguments: */ 

/* - lock : pointer to lock variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - lock != NULL ScSc lock points to a valid lock variable. */ 

/* - Initialized(lock) && ! Finalized (lock) . */ 

/* - !AnyThreadHolds(lock) . */ 

/* Atomicity: */ 

/* - Not atomic with respect to all other operations on lock. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsLockAcquire {SthreadsLock *lock) ; 

/* Input-Output Arguments: */ 

/* - lock : pointer to lock variable. */ 

/* Function Return: */ 

/*„- error code. */ 

/<: ^Preconditions : */ 

/^.j- lock != NULL && lock points to a valid lock variable. */ 

/*•"_ initialized(lock) && ! Finalizeddock) . */ 

/ *: ^- ! Thi sThr eadHo Ids (lock). * / 

/t= 'Atomicity : */ 

/ti- Atomic with respect to Acquire and Release operations on lock. */ 

/f^- Not atomic with respect to other operations on lock. */ 

/*Z- Atomic with respect to all other operations. */ 

ihl SthreadsLockRelease (SthreadsLock *lock) ; 

/* Input-Output Arguments: */ 

/M- lock : pointer to lock variable. */ 

/[*y Function Return: */ 

- error code. */ 
/^"Preconditions: - */ 
/:*^ - lock != NULL && lock points to a valid lock variable. */ 

- Initialized(lock) && !Finalized{lock) . */ 
/ *S - ThisThreadHolds (lock) . */ 

Atomicity : */ 

/* - Atomic with respect to Acquire and Release operations on lock. */ 

/* - Not atomic with respect to other operations on lock. */ 

/* - Atomic with respect to all other operations. */ 

/* */ 

/* Barriers */ 

/* */ 

typedef struct { 

unsigned char value[52]; 
) SthreadsBarrier ; 

int SthreadsBarrierlnitialize (SthreadsBarrier *barrier, int numThreads) ; 

/* Input-Output Arguments: */ 

/* - barrier : pointer to barrier variable. */ 

/* - numThreads : number of threads that cross barrier in each pass. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - barrier != NULL && barrier points to a valid barrier variable. */ 

/* - ! Initialized{barrier ) . */ 

/* - numThreads >= 1 . */ 

/* Atomicity: */ 
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?* - Not atomic with respec all other operations on barrier, */ 

/* - Atomic with respect to other operations. */ 

int SthreadsBarrierFinalize (SthreadsBarrier *barrier) ; 

/* Input-Output Arguments: */ 

/* - barrier : pointer to barrier variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - barrier != NULL && barrier points to a valid barrier variable. */ 

/* - Initialized(barrier) &£e ! Finalized (barrier ) . */ 

/* - NumWai ting (barrier } ==0. */ 

/* Atomicity: */ 

/* - Not atomic with respect to all other operations on barrier. */ 

/* - Atomic with respect to all other operations. */ 

int SthreadsBarrierPass (SthreadsBarrier *barrier) ; 

/* Input-Output Arguments: */ 

/* - barrier : pointer to barrier variable. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - barrier != NULL && barrier points to a valid barrier variable. */ 

/* - Initialized (barrier) && ! Finalized (barrier ) . */ 

/* Atomicity: */ 

/* - Atomic with respect to Pass operations on barrier. */ 

/* - Not atomic with respect to other operations on barrier. */ 

/* - Atomic with respect to all other operations. */ 

iW: SthreadsBarrierReset (SthreadsBarrier *barrier, int numThreads) ; 

Input -Output Arguments: */ 

/;?^. - barrier : pointer to barrier variable. */ 

Function Return: */ 

fi*^ - error code. */ 

Preconditions : * / 

' barrier != NULL && barrier points to a valid barrier variable. */ 

^fj^- Initialized (barrier) && ! Finalized (barrier ) . */ 

Am- NumWaiting (barrier ) 0. */ 

4* - numThreads >= 1 . */ 

/\\ Atomi c i ty : * / 

- Not atomic with respect to all other operations on barrier. */ 

AM- Atomic with respect to all other operations. */ 

*/ 

Priorities */ 

^*|_ */ 

int SthreadsGetCurrentPriority (int Apriority) ; 

/* Output Argiiments : */ 

/* - priority : scheduling priority of calling thread. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - priority != NULL && priority points to a valid int variable. */ 

/* Postconditions: */ 

/* - *priority == scheduling priority of calling thread. */ 

/* Atomicity: */ 

/* - Atomic with respect to all operations. */ 

int SthreadsSetCurrentPriority (int priority) ; 

/* Input Arguments: */ 

/* - priority : scheduling priority for calling thread. */ 

/* Function Return: */ 

/* - error code. */ 

/* Preconditions: */ 

/* - ValidPriority (priority) . */ 

/* Atomicity: */ 

/* - Atomic with respect to all operations. */ 
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/* */ 

#ifdef cplusplus 

} 

#endif 

#endif /* ! STHREADS_H */ 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/*• 



Sthreads: A 
Version 1.0 



Structured 
for Windows 



ad Library for Shared-Memory Multip^cessing 



NT 



Author: John Thornley, Computer Science Dept. , Caltech. 
Date: September 1998. 

Copyright (c) 1998 by John Thorn ley. 

THINGS TO DO: 

- Change names of CHECK tests, e.g., to CHECKNOTINITIALIZED . 

- Make Finalize operations set Initialized and Finalized flags to false. 

- Counter for dynamic for loop should be unsigned int. 

- Declarations of thread functions should be compatible with 
Win32 prototype ... see page 25. 

- Implement special case of BarrierPass when numThreads == 1. 

- Implement flags like counters for efficiency when flag is set? 

- Change priority low and high to THREAD_PRIORITY_IDLE and _TIME_CRITICAL . 



-*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

-*/ 



#include 
#include 
#include 
#include 
#include 
#include 
# include 



<stddef .h> 
<stdio . h> 
<stdlib.h> 
<assert .h> 
<limits .h> 
<windows . h> 
"sthreads .h" 





/*= Bool type definition 



t[ypedef int bool; 
#:C^fine false 0 
^define true 1 



^ 

fi^ Miscellaneous utility definitions 




^Ic^fine MIN(x, y) ( (x) < (y) ? (x) : (y) ) 
^Idefine MAX(x, y) ( (x) > (y) > (x) : (y) ) 



/*= Verify requirements, beliefs, and checks 




#.cfefine require (condition) assert (condition) /* require this input condition */ 
#define believe (condition) assert (condition) /* believe this must be true */ 
#define check (condition) assert (condition) /* check this is true */ 



/* 

/* Check for error conditions 
/* 



-*/ 



#define CHECKINPUTVALUE (condition) \ 

if (! (condition) ) { return STHREADS_ERROR_INPUTVALUE ; } 

#define CHECKMEMORYALLOC ( condition) \ 

if (! (condition) ) { return STHREADS_ERROR_MEMORYALLOC ; } 

#define CHECKTHREADCREATE (condition) \ 

if (! (condition) ) { return STHREADS_ERROR_THREADCREATE ; } 

#define CHECKS YNCCREATE (condition) \ 

if ('(condition)) { return STHREADS_ERROR_SYNCCREATE ; } 

#define CHECKINITIALIZED ( condition) \ 

if (! (condition) ) { return STHREADS_ERROR_INITIALIZED; } 



#define CHECKUNINITIALIZED (condition) \ 

if (! (condition) ) { return STHREADS_ERROR_UN INITIAL I ZED; } 
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#define CHECKFINALIZED (condi^on) \ 

if (! (condition) ) { return STHREADS_ERROR_FINALIZED; } 

#define CHECKINUSE (condition) \ 

if (! (condition) ) { return STHREADS_ERROR_INUSE ; } 

#define CHECKLOCKHELD (condition) \ 

if (! (condition) ) { return STHREADS_ERROR_LOCKHELD ; ) 

#define CHECKLOCKNOTHELD (condition) \ 

if (! (condition) ) { return STHREADS_ERROR_L0CKN0THELD; ) 

#define CHECKCOUNTEROVERFLOW( condition) \ 

if (! (condition) ) { return STHREADS_ERROR_COUNTEROVERFLOW; } 

#define CHECKOTHER (condition) \ 

if (! (condition) ) { return STHREADS_ERROR_UNSPECIFIED; } 

/* */ 

/* Is processor status value valid? */ 
/* */ 

static bool ValidProcessorStatus (int p) 
{ 

return 

p == STHREADS„PROCESSOR_YES | | 
p == STHREADS_PROCESSOR_NO; 

) 

*/ 

/*Z Is mapping value valid? */ 
*/ 

Static bool ValidMapping ( int m) 

T" return 

m == STHREADS_MAPPING_SIMPLE | 
'vf\ m STHREADS_MAPPING_DYNAMIC 

m == STHREADS_MAPPING_BLOCKED 
iJ m == STHREADS_MAPPING_INTERLEAVED; 

*/ 

fi"^ Is condition value valid? */ 

4^ */ 

s'tj.tic bool ValidCondition (int c) 

H 

i J return 

c == STHREADS_CONDITION_LT 
c == STHREADS_CONDITION_LE 
c == STHREADS_CONDITION_GT 
c == STHREADS_CONDITION_GE; 

} 

/* */ 

/* Is stack-size value valid? */ 
/* */ 

static bool ValidStackSize (unsigned int s) 
{ 

return 

S >= STHREADS_STACK_SIZE_MINIMUM; 

} 

/* */ 

/* Is priority value valid? */ 
/* */ 

static bool ValidPriority (int p) 
{ 

return 

STHREADS_PRIORITY_LOWEST <= p && p <= STHREADS_PRIORITY_HIGHEST ; 
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} 

/* 

/* Print error message to string 

/* 

void SthreadsWriteErrorMessage (int errorCode, char errorString [ ] ) 
{ 

switch (errorCode) { 
case STHREADS_ERROR_NONE : 
sprintf (errorString, 
"no error" ) ; 

break ; 

case STHREADS_ERROR_INPUTVALUE : 
sprintf (errorString, 

"input value precondition violation"); 

break ; 

case STHREADS_ERROR_MEMORYALLOC : 
sprintf (errorString, 

"memory allocation failure" ) ; 

break ; 

case STHREADS_ERROR_THREADCREATE : 
sprintf (errorString, 

"system thread creation failure"); 

break ; 

case STHREADS_ERROR_SyNCCREATE : 
sprintf (errorString, 

"system synchronization creation failure"); 

break ; 

case STHREADS_ERROR_INITIALIZED: 
sprintf (errorString, 

"initialization on previously initialized object"); 

'■••^ break; 

,:Z case STHREADS_ERROR_UNINITIALIZED: 
yf[ Sprintf (errorString, 

^'\* "operation on uninitialized object"); 

j'" break; 

M case STHREADS_ERROR_FINALIZED: 
yn sprintf (errorString, 

"operation on finalized object"); 

break; 

:= case STHREADS_ERROR_INUSE: 
sprintf (errorString, 

" f inalization/reset on in-use object"); 

i y break; 

M case STHREADS_ERROR_LOCKN0THELD : 

- sprintf (errorString, 

'''Z. "release on lock not held"); 

break; 

:1 case STHREADS„ERR0R_COUNTEROVERFL0W: 
sprintf (errorString, 

"counter overflow"); 

break ; 

case STHREADS_ERROR_UNSPECIFIED: 
sprintf (errorString, 

"unspecified error"); 

break ; 
default : 

sprintf (errorString, 

">>>>> unknown error code <<<<<"); 

break ; 

} 

} 

/* 

/* Default error handler function: 

/* displays error message and terminate normal program execution. 
/* 

static void Def aultErrorHandler ( int errorCode) 
{ 

char errorString [STHREADS_ERROR_STRING_MAX] ; 
if (errorCode != STHREADS_ERROR_NONE ) { 



SthreadsWriteErrorM^^pge (errorCode, errorString) ; 
fprintf (stderr , "\n^^5", errorString); 
exit {EXIT_FAILURE) ; 

} 

} 

/* */ 

/* Error handler function. */ 
/* */ 

static void ( *errorHandlerFunction) {int errorCode) = Def aultErrorHandler ; 

/* */ 

/* Handle errors. */ 
/* */ 

#define UNLOCKED 0 
#define LOCKED 1 

static LONG lock = UNLOCKED; 

void SthreadsErrorHandler {int errorCode) 
{ 

while {InterlockedExchange( (LPLONG) ilock, LOCKED) != UNLOCKED); 
(*errorHandlerFunction) (errorCode) ; 
InterlockedExchange( (LPLONG) &lock, UNLOCKED); 

) 

#undef UNLOCKED 
#undef LOCKED 

*/ 

/*^Set error handler function. */ 
*/ 

5. 1 j 

iV)Xr SthreadsSetErrorHandler (void {*errorHandler) (int errorCode)) 
{f. 

if (errorHandler == NULL) 
\f\ errorHandlerFunction = Def aultErrorHandler ; 

r=j else 

""^ errorHandlerFunction = errorHandler; 

i: 

M return STHREADS_ERROR_NONE ; 

fiA */ 

Control the processors used by program execution. */ 
*/ 

ibfc SthreadsGetSystemProcessors (int processor []) 
{ 

DWORD processAf f inity, systemAf f inity , processorBit ; 
int p; 

require (STHREADS_PROCESSORS_MAX == 32); 
GetProcessAf f inityMask ( 
GetCurrentProcess ( ) , 

(LPDWORD) &processAf f inity, (LPDWORD) &systeinAf f inity ) ; 
CHECKINPUTVALUE (processor != NULL); 
processorBit = (DWORD) 1; 

for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) { 
if (systemAff inity & processorBit) 

processor [p] = STHREADS_PROCESSOR__YES ; 

else 

processor [p] = STHREADS_PROCESSOR_NO ; 
processorBit = processorBit << 1; 

} 

return STHREADS_ERROR„NONE ; 

} 

/* */ 
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int SthreadsSetProgramProcesWrs (int processor []) 
{ 

DWORD processAf f inity, systemAf f inity , processorBit ; 
int p; 

require (STHREADS_PROCESSORS_MAX == 32); 
GetProcessAf f inityMask ( 
GetCurrentProcess ( ) , 

(LPDWORD) &processAf f inity, (LPDWORD) &systemAf f inity ) ; 

CHECKINPUTVALUE (processor != NULL) ; 
processorBit = (DWORD) 1; 

for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) { 

CHECKINPUTVALUE (ValidProcessorStatus (processor [p] ) ) ; 
if (processor [p] == STHREADS_PROCESS0R_YES) 

CHECKINPUTVALUE (systemAff inity & processorBit) ; 
processorBit = processorBit << 1; 

} 

for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) 

if (processor [p] STHREADS_PROCESSOR_YES) break; 
CHECKINPUTVALUE (p < STHREADS_PROCESSORS_MAX) ; 

processAff inity = (DWORD) 0; 
processorBit = (DWORD) 1; 

for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) { 
if (processor [p] == STHREADS_PROCESSOR_YES) 

processAff inity = processAff inity | processorBit; 
processorBit = processorBit << 1; 

} 

;:=-: SetProcessAff inityMask (GetCurrentProcess ( ) , processAff inity) ; 
SetThreadAff inityMask (GetCurrentThread( ) , processAff inity) ; 



return STHREADS ERROR_NONE; 



iin-t SthreadsGetProgramProcessors ( int processor []) 

Id DWORD processAff inity, systemAff inity, processorBit; 
int p; 

require (STHREADS„PROCESSORS_MAX == 32); 
GetProcessAf f inityMask ( 
GetCurrentProcess ( ) , 

(LPDWORD) &processAff inity, (LPDWORD) &systemAff inity ) ; 
CHECKINPUTVALUE (processor != NULL); 
processorBit = (DWORD) 1; 

for (p = 0; p < STHREADS_PROCESSORS„MAX; p++) { 
if (processAff inity & processorBit) 

processor [p] = STHREADS_PROCESSOR_YES ; 

else 

processor [p] = STHREADS_PROCESSOR_NO ; 
processorBit = processorBit << 1; 

} 

return STHREADS_ERROR_NONE; 



int SthreadsSetThreadProcessors (int processor []) 
{ 

DWORD threadAff inity, processAff inity , systemAff inity, processorBit; 
int p; 

require (STHREADS_PROCESSORS_MAX == 32); 
GetProcessAf f inityMask ( 
GetCurrentProcess ( ) , 

(LPDWORD) &processAff inity, (LPDWORD) &systemAff inity ) ; 
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CHECKINPUTVALUE{procesd^^= NULL) 
processorBit = (DWORD) 
for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) { 

CHECKINPUTVALUE (ValidProcessorStatus (processor [p] ) ) ; 
if (processor [p] == STHREADS_PROCESSOR_YES) 

CHECKINPUTVALUE (processAffinity & processorBit); 
processorBit = processorBit << 1; 

} 

for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) 

if (processor [p] == STHREADS_PROCESSOR_YES) break; 
CHECKINPUTVALUE (p < STHREADS_PROCESSORS_MAX) ; 

threadAf f inity = (DWORD) 0; 
processorBit = (DWORD) 1; 

for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) { 
if (processor [p] == STHREADS_PROCESSOR_YES) 

threadAf f inity = threadAf f inity | processorBit; 
processorBit = processorBit « 1; 

} 

SetThreadAf f inityMask (GetCurrentThread( ) , threadAf f inity) 
return STHREADS_ERROR_NONE ; 



int SthreadsGetNumSystemProcessors ( int *numProcessors ) 
{ 

DWORD processAffinity, systemAff inity, processorBit; 
int p, count; 

,2 require (STHREADS_PROCESSORS_MAX 32); 
"~ GetProcessAff inityMask ( 

GetCurrentProcess () , 
\j\ (LPDWORD) &processAff inity, (LPDWORD) ScSystemAff inity ) , 

CHECKINPUTVALUE (numProcessors != NULL); 

in count = 0; 

y^. processorBit = (DWORD) 1; 

'-''"^ for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) { 
- if (systemAff inity & processorBit) 

count = count + 1; 
= : processorBit = processorBit « 1; 

*numProcessors = count; 

. == return STHREADS_ERROR_NONE ; 

ri 



int S threads Se tNumProgramProces sors { int numProcessors) 
{ 

DWORD processAffinity, systemAff inity , processorBit; 
int p, numSystemProcessors ; 

require (STHREADS_PROCESSORS_MAX == 32); 
GetProcessAff inityMask ( 
GetCurrentProcess ( ) , 

(LPDWORD) &processAff inity, (LPDWORD) &systemAff inity ) ; 

CHECKINPUTVALUE (numProcessors >= 1); 
numSystemProcessors = 0; 
processorBit = (DWORD) 1; 

for (p = 0; p < STHREADS_PROCESSORS_MAX; p++) { 
if (systemAff inity & processorBit) 

niimSystemProcessors = numSystemProcessors + 1; 
processorBit = processorBit << 1; 

} 

CHECKINPUTVALUE (numProcessors <= numSystemProcessors); 



processAffinity = (DWORD) 0; 
processorBit = (DWORD) 1; 
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for (p = 0; p < STHREAC^^pbCESSORS_MAX && numProcessors > ) { 

if (systemAf f inity ^^rocessorBit ) { 

processAf f inity = processAff inity | processorBit ; 
numProcessors = numProcessors - 1; 

} 

processorBit = processorBit << 1; 

} 

believe (numProcessors == 0) ; 

SetProcessAf f inityMask (GetCurrentProcess { ) , processAf f inity) ; 
return STHREADS_ERROR_NONE ; 



/* Arguments for multithreaded block thread */ 
/* */ 

typedef struct { 

int numStatements ; 

void {**statement) (void *args) ; 

void *args; 

int first, last, step; 
int *counter; 

LPCRITICAL_SECTION counterLock; 
LPLONG threadCount; 
HANDLE threadsFinished; 
} MTBargs; 

/* */ 

/* Simple multithreaded block thread */ 

/f5 */ 

static void SMTB thread (MTBargs *args) 

lf\ BOOL returnOK; 

]~ require (args != NULL) ; 

require (args ->numStatements > 0); 
if] require (args->statement != NULL) ; 

■:=: require(0 <= args->first && args->first < args->numStatements) ; 
require ( *args->statement [args->first] != NULL) ; 

Is ( *args->statement [args->f irst] ) (args->args ) ; 

if (InterlockedDecrement (args->threadCount ) ==0) { 
returnOK = SetEvent {args->threadsFinished) ; 
check (returnOK) ; 



} 



/* */ 

/* Dynamic multithreaded block thread */ 
/* */ 

static void DMTBthread (MTBargs *args) 
{ 

int s ; 

bool finished; 
BOOL returnOK; 

require (args != NULL); 

require (args->numStatements > 0); 

require (args->statement != NULL); 

require (0 <= args->first && args->first < args->numStatements) ; 
require (args->counter != NULL); 
require (args->counterLock != NULL); 

s = args->first; 
while (true) { 

require (args->statement [s] != NULL); 

(*args->statement [s] ) (args->args) ; 

EnterCriticalSection (args->counterLock) ; 

finished = ( *args->counter == args->numStatements - 1); 

if ( ! finished) { 



7 



*args->counter •^Hrgs->counter + 1 ; 

s = *args->counu^r; 

} 

LeaveCriticalSection (args->counterLock) ; 
if (finished) break; 

} 

if ( Inter lockedDecrement (args->threadCount) ==0) { 
returnOK = SetEvent (args->threadsFinished) ; 
check (returnOK) ; 

} 

} 

/* 

/* Blocked and interleaved multithreaded block thread 

/* 

static void BIMTBthread (MTBargs *args) 
{ 

int s; 

BOOL returnOK; 

require (args != NULL); 

require (args->numStatements > 0); 

require (args ->stateinent != NULL); 

require(0 <= args->last && args->last < args->numStatements ) ; 
require (0 <= args->first && args->first <= args->last) ; 
require (args->step > 0); 

require ( {args->last - args->f irst) %args->step 0); 

s = args->first; 
^'^ while (true) { 

'"•"^ require (args ->statement [s] != NULL); 

(* args -> Stat ement [s] ) (args->args) ; 
rn if (s ~= args->last) break; 

j'^ believe (args->last - s >= args->step) ; 

:~ s = s + args->step; 

j!=^ if ( Inter lockedDecrement (args->threadCount) ==0) { 
returnOK = SetEvent (args->threadsFinished) ; 
check (returnOK) ; 

M ) 



Multithreaded block 
/% 

iBt SthreadsBlock ( 

int numStatements, void { *statement [ ] ) ( void *args) , void *args, 

int mapping, int numThreads, 

int priority, unsigned int stackSize) 

{ 

HANDLE * thread; 
MTBargs * threadArgs ; 
LONG threadCount; 
HANDLE threadsFinished; 
HANDLE parentThread; 
int parentPriority; 

void ( *threadStart) (MTBargs *args) ; 
int s, t; 
DWORD threadID; 
int counter; 

CRITICAL_SECTION counter Lock; 

int blockFirst, blockSize, blockRemainder ; 

BOOL returnOK; 

DWORD returnCode; 

CHECKINPUTVALUE(numStatements >= 0); 
CHECKINPUTVALUE( statement !=NULL); 
for (s = 0; s < numStatements ; s++) 

CHECKINPUTVALUE (statement [ s ] ! = NULL ) ; 
CHECKINPUTVALUE(ValidMapping (mapping) ) ; 



8 



if (mapping != STHREAD^^K>ING_SIMPLE) 

CHECKINPUTVALUE ( (nur^reads > 0) || 

(numThreads == 0 && numStatements == 0)); 
CHECKINPUTVALUE ( 

ValidPriority (priority) | | priority == STHREADS_PRIORITY_PARENT) 
CHECKINPUTVALUE(ValidStackSize(stackSize) ) ; 

if (numStatements == 0) return STHREADS_ERROR_NONE ; 

if (mapping =- STHREADS_MAPPING_SIMPLE) numThreads = numStatements; 

if (numThreads > numStatements) numThreads = numStatements; 

if (numThreads =^ 1) mapping = STHREADS_MAPPING_BLOCKED; 

if (numThreads == numStatements) mapping = STHREADS_MAPPING_SIMPLE; 

CHECKMEMORYALLOC (numThreads <= INT_MAX/sizeof (HANDLE) ) ; 
thread = (HANDLE *) malloc (numThreads * si zeof (HANDLE) ) ; 
CHECKMEMORYALLOC ( thread != NULL); 

CHECKMEMORYALLOC (numThreads <= INT_MAX/sizeof (MTBargs ) ) ; 
threadArgs = (MTBargs *) malloc (numThreads* si zeof (MTBargs )) ; 
CHECKMEMORYALLOC ( threadArgs !=NULL); 

parentThread - GetCurrentThread () ; 
believe (parentThread != NULL); 

parentPriority = GetThreadPriority (parentThread) ; 
believe (parentPriority != THREAD_PRIORITY_ERROR_RETURN) ; 
believe (ValidPriority (parentPriority) ) ; 
if (priority != STHREADS_PRIORITY_PARENT ) { 

returnOK = SetThreadPriority (parentThread, priority); 

believe (returnOK) ; 

} 

switch (mapping) { 

case STHREADS_MAPPING_SIMPLE: 

threadStart = SMTBthread; 

break ; 

case STHREADS„MAPPING_DYNAMIC : 
counter = numThreads - 1; 
InitializeCriticalSection (ScCOunterLock) ; 
threadStart = DMTBthread; 
break ; 

case STHREADS_MAPPING_BLOCKED : 
blockFirst = 0; 

blockSize ~ numStatements /numThreads ; 
blockRemainder = numStatements%numThreads ; 
threadStart = BIMTBthread; 
break ; 

case STHREADS_MAPPING_INTERLEAVED : 

blockSize = numStatements /numThreads ; 

blockRemainder = numStatements%numThrGads ; 

threadStart = BIMTBthread; 

break; 
default : 

assert ( false) ; 

} 

threadCount = numThreads; 

threadsFinished = CreateEvent(NULL, TRUE, FALSE, NULL); 
CHECKSYNCCREATE(threadsFinished != NULL); 
for (t = 0; t < numThreads; t++) { 

threadArgs [t] .numStatements = numStatements; 

threadArgs [t] . statement = statement; 

threadArgs [t] .args = args; 

threadArgs [t] . threadCount = (LPLONG) &threadCount ; 
threadArgs [t] . threadsFini shed = threadsFinished; 

switch (mapping) { 

case STHREADS_MAPPING_SIMPLE: 

threadArgs [ t] . first = t; 

break; 

case STHREADS_MAPPING_DYNAMIC: 
threadArgs [ t] . first = t; 
threadArgs [ t] . counter = ^counter; 
threadArgs [t] . counterLock = &counterLock; 
break ; 
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case STHREADS_MAPPXi^^iOCKED : 

threadArgs [t] . f iWt = blockFirst; 
threadArgs [t] . last = blockFirst + (blockSize - 1); 
threadArgs [t] . step = 1; 
if (blockRemainder > 0) { 

threadArgs [t] . last = threadArgs [ t] . last + 1; 
blockRemainder = blockRemainder - 1; 

} 

blockFirst = threadArgs [t] . last + In- 
break; 

case STHREADS_MAPPING_INTERLEAVED: 
threadArgs [t] . first = t; 

threadArgs [t] . last = blockSize*numThreads + t; 
threadArgs [ t] . step = numThreads; 
if (blockRemainder == 0) 

threadArgs [t] . last = threadArgs [ t] . last - numThreads ; 

else 

blockRemainder = blockRemainder - 1; 
break ; 
default : 

believe { false) ; 

} 

thread [t] = CreateThread (NULL, stackSize, 
( LPTHREAD_START_ROUTINE ) threads tar t , 

(LPVOID) ScthreadArgs [t] , CREATE_SUS FENDED, &threadID) ; 
CHECKTHREADCREATE ( thread [ t ] ! = NULL ) ; 
if (priority == STHREADS_PRIORITY_PARENT) 

returnOK = SetThreadPriority ( thread [ t] , parentPriority) ; 

else 

returnOK = SetThreadPriority (thread [ t] , priority); 
CHECKTHREADCREATE (returnOK) ; 
returnCode = ResumeThread(thread[t] ) ; 
CHECKTHREADCREATE ( re turnCode == 1); 



) 



:7 if (priority != S THREADS_PR I ORITY_ PARENT) { 

returnOK = SetThreadPriority (parentThread, parentPriority) ; 
in believe (returnOK) ; 

} 

'■'■^ returnCode = WaitForSingleObject { threadsFinished, INFINITE); 

CHECKOTHER( returnCode ! = WAIT_FAILED) ; 
|:i returnOK = CloseHandle ( threadsFinished) ; 
yii CHECKOTHER( returnOK == TRUE); 
;^ for (t = 0; t < numThreads; t++) { 

returnOK = CloseHandle { thread [ t] ) ; 
..!! CHECKOTHER( returnOK == TRUE); 

if (mapping == STHREADS_MAPPING_DYNAMIC ) 
hJ DeleteCriticalSection{&:CounterLock) ; 

free (thread) ; 
free ( threadArgs ) ; 

return STHREADS_ERROR_NONE ; 



/* Is regular for loop range infinite? */ 
/* */ 

static bool Inf initeRange ( int initial, int condition, int bound, int step) 
{ 

require (ValidCondition (condition) ) ; 



switch (condition) { 

case STHREADS_CONDITION_LT: 

return initial < bound && step <= 0; 
case STHREADS_CONDITION_LE: 

return initial <= bound && step <= 0; 
case STHREADS_CONDITION_GT : 

return initial > bound && step >= 0; 
case STHREADS_CONDITION_GE : 

return initial >= bound && step >= 0; 
default: 
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?hi^^xeturn should never be executed. */^^ 



believe (false) , 

return false; /* Thil^return should never be executed. 
} 

) 

/* 

/* Is regular for loop range null? 

/* 

static bool NullRange ( int initial, int condition, int bound, int step) 
{ 

require (ValidCondition (condition) ) ; 



switch (condition) { 

case STHREADS_CONDITION_LT: 

return initial >= bound; 
case STHREADS„CONDITION_LE: 

return initial > bound; 
case STHREADS_CONDITION_GT: 

return initial <= bound; 
case STHREADS_CONDITION_GE: 

return initial < bound; 
default: 

believe (false) ; 

return false; /* This return should never be executed, */ 

} 

) 

/* 

/* Arithmetic operations on signed and unsigned integers 

/rj 

s"tl.tic unsigned int DIFF(int high, int low) 
ITl requiredow <= high); 
! return (unsigned int) (high - low) ; 



Static int ADD (int base, unsigned int offset) 
{M 

i=ii require (of f set <= DIFF(INT„MAX, base)); 
return base + (int) offset; 

/vL 

static int SUBTRACT (int base, unsigned int offset) 
{ 

require (offset <= DIFF(base, INT_MIN) ) ; 
return base - (int) offset; 

} 

/* 

/* Split range 0 . . rangeLast into chunks numbered 0 . . chunkLast with 

/* chunks. Return the first and last indices of chunk c, 

/* 

static void SPLIT ( 

unsigned int rangeLast, unsigned int chunkLast, unsigned int c, 
unsigned int *first, unsigned int *last) 

{ 

unsigned int smallerChunkSize ; 
unsigned int numLargerChunks ; 

require (chunkLast <- rangeLast); 
require (c <= chunkLast); 

require(f irst ! = NULL && last != NULL); 



i f ( chunkLast = 



= 0) { 



*first = 0; 

*last = rangeLast; 




} else if (chunkLast == rangeLast) { 

* first = c; 

*last = c; 
} else { 

small erChunkSize = (rangeLast - chunkLast )/ (chunkLast + 1) + 1; 
numLargerChunks = (rangeLast - chunkLast )% (chunkLast + 1) ; 
* first = c*smallerChunkSize + MIN(c, numLargerChunks ) ; 
*last = *first + (smallerChunkSize - 1) ; 
if (c < numLargerChunks) *last = *last + 1; 

} 

} 



/* */ 

/* Last iteration number in regular for loop range */ 
/* (iterations numbered 0, 1, 2, ...) */ 
/* */ 



static unsigned int LAST_ITERATION_NUM { 

int initial, int condition, int bound, int step) 

{ 

require (ValidCondit ion (condition) ) ; 

require (! InfiniteRange (initial, condition, bound, step)); 
require (! NullRange ( initial , condition, bound, step) ) ; 



switch (condition) { 

case STHREADS_CONDITION_LT: 

believe (initial < bound && step > 0) ; 

return DIFF(bound - 1, initial )/( (unsigned int) step) ; 
□ case STHREADS_CONDITION_LE : 
. =: believe (initial <= bound && step > 0) ; 

"'2 return DIFF(bound, initial )/( (unsigned int) step) ; 

case STHREADS_CONDITION_GT: 
rfj believe (initial > bound && step < 0) ; 

return DIFF ( initial , bound + 1 )/( (unsigned int) -step) ; 
l~ case STHREADS_CONDITION_GE: 
r"^ believe (initial >= bound && step < 0); 

rn return DIFF ( initial , bound) /( (unsigned int) -step); 

default: 

assert ( false) ; 

return false; /* This return should never be executed. */ 

M ) 

* / 

/.^ Last chunk number in regular for loop range (chunks numbered 0, 1, 2, ...) */ 
/ *^ */ 

Otitic unsigned int LAST_CHUNK_NUM ( 

int initial, int condition, int bound, int step, int chunkSize) 

{ 

require (ValidCondition (condition) ) ; 

require (! InfiniteRange (initial , condition, bound, step)); 
require (! NullRange (initial , condition, bound, step)); 
require (chunkSize >= 1); 

return LAST_ITERATION_NUM( initial, condition, bound, step)/ 
{ (unsigned int) chunkSize) ; 

} 

/* */ 

/* Control value on ith iteration of regular for loop range (i = 0, 1, 2, .,.)*/ 
/* */ 

static int ControlValue (unsigned int i, int initial, int step) 
{ 

require(step != 0); 

if (step > 0) 

return ADD(initial, i* ( (unsigned int) step)); 

else 

return SUBTRACT (initial , i* { (unsigned int) -step)); 

} 



12 



/* 

/* Does control value lie inside regular for loop range? 
/* 



static bool InRange ( 

int controlValue, int initial, int condition, int bound, int step) 

{ 

require (ValidCondition (condition) ) ; 

require (! InfiniteRange (initial, condition, bound, step) ) ; 
require ( INullRange ( initial , condition, bound, step) ) ; 

switch (condition) { 
case STHREADS_CONDITION_LT: 
believe (step > 0) ; 

return initial <= controlValue && controlValue < bound; 
case STHREADS_CONDITION_LE: 
believe(step > 0); 

return initial <= controlValue && controlValue <= bound; 
case STHREADS_CONDITION_GT: 
believe(step < 0); 

return initial >= controlValue && controlValue > bound; 
case STHREADS_CONDITION_GE: 
believe (step < 0); 

return initial >= controlValue controlValue >= bound; 
default: 

believe (false) ; 

return false; /* This return should never be executed. */ 

} 

} 

/* 

/* Execute cth chunk of regular for loop range (c = 0, 1, 2, ...) 

/* 

static void ExecuteChunk ( 

int initial, int condition, int bound, int step, int chunkSize, 
unsigned int c, void { *chunk) ( int , int, int, void *), void *args) 

{ 

unsigned int iFirst, iLast; 

int chunklnitial , chunkLast, chunkBound; 

require (ValidCondition (condition) ) ; 

require (! InfiniteRange (initial, condition, bound, step)); 
require ( INullRange (initial, condition, bound, step)); 
require (chunkSize >= 1); 

require(c <- LAST_CHUNK_NUM ( initial , condition, bound, step, chunkSize)); 
require (chunk != NULL); 

SPLIT ( 

LAST_ITERATION_NUM( initial, condition, bound, step) , 
LAST_CHUNK_NUM( initial, condition, bound, step, chunkSize) , c, 
SciFirst, SeiLast) ; 

believe(0 <= iFirst); 

believe (iFirst <= iLast); 

believe (iLast <= LAST_ITERATION_NUM( initial , condition, bound, step)); 

chunklnitial = ControlValue (iFirst, initial, step); 

believe (InRange ( chunklnitial , initial, condition, bound, step)); 

chunkLast = ControlValue { iLast , initial, step); 

believe (InRange (chunkLast, initial, condition, bound, step}); 

switch (condition) { 

case STHREADS_CONDITION_LT: 

chunkBound = chunkLast + 1; 

break ; 

case STHREADS_CONDITION_LE: 
chunkBound = chunkLast; 
break; 

case STHREADS_CONDITION_GT: 

chunkBound = chunkLast - 1; 
break ; 

case STHREADS_CONDITION_GE: 

chunkBound = chunkLast; 

break ; 
default : 
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believe (false) ; 

} 

(*chunk) (chunklnitial , chunkBound, step, args); 

} 

/* 

/* Arguments for multithreaded regular for loop thread 
/* 

typedef struct ( 

void (*chunk)(int initial, int bound, int step, void *args) ; 
void *args; 

int initial, condition, bound, step; 
int chunkSize; 

unsigned int chunkFirst, chunkLast, chunks tep; 
unsigned int * counter; 
LPCRITICAL_SECTION counterLock; 
LPLONG threadCount; 
HANDLE threadsFinished; 
} MTRFLargs; 

/* 

/* Simple multithreaded regular for loop thread 
/* 

static void SMTRFL thread (MTRFLargs *args) 
{ 

BOOL returnOK; 

require (args != NULL); 
Ij require (args->chunk != NULL); 
*'= require (ValidCondition (args->condition) ) ; 
'"■'^ require (! InfiniteRange ( 

::~ args->initial , args->condition, args->bound, 

Vf\ require ( INullRange ( 

:\ args->initial , args->condition, args->bound, 

l" require (args->chunkSize >= 1); 
M require (args->chunkFirst <= LAST„CHUNK_NUM { 
if. args->initial , args->condition, args->bound, 

args->chunkSize) ) ; 

ExecuteChunk ( 

args->initial , args->condition, args->bound, args->step, 

j::: args - >chunkS 1 z e , args->chunkFirst , args -> chunk, args->args) ; 

I u 

M if (InterlockedDecrement (args->threadCount ) =-0) { 
f returnOK = SetEvent (args->threadsFinished) ; 

"I check (returnOK) ; 

U } 

/* 

/* Dynamic multithreaded regular for loop thread 
/* 

static void DMTRFL thread (MTRFLargs *args) 
{ 

unsigned int c, last_c; 
bool finished; 
BOOL returnOK; 

require (args != NULL); 
require (args ->chunk != NULL); 
require (ValidCondition (args->condition) ) ; 
require ( ! InfiniteRange ( 

args->initial , args->condition, args->bound, 
require ( ! NullRange ( 

args->initial , args->condition, args->bound, 
require (args->chunkSize >= 1); 
require (args->chunkFirst <= LAST_CHUNK_NUM ( 

args->initial, args->condition, args->bound, 

args->chunkSize) ) ; 
require (args->counter != NULL); 
require (args->counterLock != NULL); 



args ->s tep) ) ; 
args ->s tep) ) ; 

args->step , 



args->step) ) ; 
args ->s tep) ) ; 

args->step. 
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c = args->chunkFirst ; 
last_c = LAST_CHUNK_NUM{ 

args->initial , args->condition, args->bound, args->step, 

ar gs-> chunks ize) ; 
while (true) { 

ExecuteChunk { 

args->initial , args->condi tion, args->bound, args->step, 

args->chunkSize, c, args-> chunk, args->args) ; 
EnterCriticalSection (args->counterLock) ; 
finished = ( *args->counter == last_c) 
if (Ifinished) { 

*args->counter = *args->counter + 1; 

c = *args->counter ; 

} 

LeaveCriticalSection (args->counterLock) ; 
if (finished) break; 

) 

if ( Inter lockedDecrement (args->threadCount) ~- 0) { 
returnOK = SetEvent (args->threadsFinished) ; 
check (returnOK) ; 

} 

} 

/* 

/* Blocked and interleaved multithreaded regular for loop thread 
/* 

static void BIMTRFLthread (MTRFLargs *args) 

unsigned int c; 
"'Z BOOL returnOK ; 

ITl require (args != NULL) ; 
Ij^ require (args->chunk != NULL) ; 
I . require (ValidCondition(args->condition) ) ; 

require ( ! Inf initeRange ( 
rn args->initial , args->condition, args->bound, args->step) ) ; 

require ( ! NullRange ( 

args->initial , args->condition , args->bound, args->step) ) ; 
i= require (args->chunkSize >= 1) ; 
M require (args->chunkFirst <= args->chunkLast) ; 
1=11 require (args->chunkLast <= LAST_CHUNK_NUM ( 

!^ args->initial , args->condition, args->bound, args->step, 

args ->chunkS ize) ) ; 
require { (args->chunkLast - args->chunkFirst ) %args->chunkStep == 0); 

"'Z, c - args->chunkFirst; 
while (true) { 

ExecuteChunk ( 

args->initial , args->condition, args->bound, args->step, 

args->chunkSize, c, args->chunk, args->args) ; 
if (c == args->chunkLast) breaks- 
believe (args ->chunkLast - c >= args->chunkStep) ; 
c = c + args->chunkStep; 

} 

if ( Inter lockedDecrement (args ->threadCount) == 0) { 
returnOK = SetEvent (args->threadsFinished) ; 
check (returnOK) ; 

} 

} 

/* 

/* Multithreaded regular for loop 

/* 

int SthreadsRegularForLoop ( 

void (*chunk) (int initial, int bound, int step, void *args) , void *args 
int initial, int condition, int bound, int step, 
int chunkSize, int mapping, int numThreads, 
int priority, unsigned int stackSize) 

{ 
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unsigned int lastChun 
HANDLE * thread ; 
MTRFLargs *threadArgs; 
LONG threadCount; 
HANDLE threadsFinished; 
HANDLE parentThread; 
int parentPriority; 

void (*thread_s tart) (MTRFLargs *args); 
int t; 

DWORD threadID; 
int counter ; 

CRITICAL_SECTION counter Lock ; 

unsigned int blockFirst, blockSize, blockRemainder 
BOOL returnOK; 
DWORD returnCode; 

CHECKINPUTVALUE{ chunk != NULL) ; 
CHECKINPUTVALUE(ValidCondition(condition) ) ; 

CHECKINPUTVALUE{ ! InfiniteRange( initial, condition, bound, step) ) ; 
CHECKINPUTVALUE( (chunkSize > 0) | | 
(chunkSize == 0 && 

NullRange (initial , condition, bound, step) ) ) ; 
CHECKINPUTVALUE{ValidMapping (mapping) ) ; 
if (mapping != STHREADS_MAPPING_SIMPLE) 
CHECKINPUTVALUE( (numThreads > 0) || 
(numThreads == 0 

NullRange (initial, condition, bound, step) ) ) ; 

CHECKINPUTVALUE ( 

ValidPriority (priority) | | priority == STHREADS_PRIORITY_PARENT) 
CHECKINPUTVALUE (ValidStackSize(stackSize) ) ; 

if (NullRange (initial , condition, bound, step)) 
return S THREAD S_ERROR_NONE; 

i lastChunkNum = LAST_CHUNK_NUM ( 

initial, condition, bound, step, chunkSize) ; 
CHECKMEMORYALLOC ( ! (mapping STHREADS_MAPPING_SIMPLE && 
lastChunkNum >= INT_MAX) ) ; 

if (mapping == STHREADS_MAPPING_SIMPLE) 

numThreads = (int) (lastChunkNum + 1); 
if ((unsigned int) (numThreads - 1) > lastChunkNum) 

numThreads = (int) (lastChunkNum + 1); 
if (numThreads == 1) 

mapping = STHREAD S_MAPPING_ INTERLEAVED ,- 
if ((unsigned int) (numThreads - 1) == lastChunkNum) 
mapping = STHREADS_MAPPING_SIMPLE; 

; CHECKMEMORYALLOC (numThreads <= INT_MAX/sizeof (HANDLE) ) ; 
' thread = (HANDLE *) malloc (numThreads * si zeof (HANDLE) ) ; 
CHECKMEMORYALLOC ( thread != NULL) ; 

CHECKMEMORYALLOC (numThreads <= INT_MAX/ si zeof (MTRFLargs )) ; 
threadArgs = (MTRFLargs *) malloc (numThreads*sizeof (MTRFLargs )) ; 
CHECKMEMORYALLOC ( threadArgs ! = NULL) ; 

parentThread = GetCurrentThread ( ) ; 
believe (parentThread != NULL) ; 

parentPriority = GetThreadPriority (parentThread) ; 
believe (parentPriority != THREAD_PRIORITY_ERROR„RETURN) ; 
believe (ValidPriority (parentPriority ) ) ; 
if (priority != STHREADS_PRIORITY_PARENT) { 

returnOK= SetThreadPriority (parentThread, priority) ; 
believe (returnOK) ; 

} 

switch (mapping) { 
case STHREADS_MAPPING_SIMPLE: 

thread_start = SMTRFLthread; 
break ,- 

case STHREADS_MAPPING_DYNAMIC : 
counter = numThreads - 1; 
InitializeCriticalSection (&counterLock) ; 
thread_start = DMTRFLthread; 
break ; 
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case STHREADS_MAPPING_B' 
blockFirst = 0; 
blockSize = 

( lastChunkNum 
( (unsigned int 
blockRemainder = 
(lastChunkNum 
( (unsigned int 



( ( (unsigned 
numThreads ) 

( ( (unsigned 
numThreads) ; 



mt) 
+ 1; 



numThreads ) 



1) )/ 



int) numThreads) - 1))% 



thread_start = BIMTRFL threads- 
break ; 

case STHREADS_MAPPING_INTERLEAVED : 
blockSize = 

(lastChunkNum - { ( (unsigned int) numThreads) - 

((unsigned int) numThreads) + 1; 
blockRemainder = 

(lastChunkNum - {((unsigned int) numThreads) - 

( (unsigned int) numThreads) ; 
thread_start = BIMTRFL thread; 
breaks- 
default : 

assert ( false) ; 

} 



1) )/ 
1) )% 



threadCount = numThreads ; 

threadsFinished = CreateEvent (NULL , TRUE, FALSE, NULL) ; 
CHECKS YNCCREATE(threadsFini shed != NULL) ; 
for (t = 0; t < numThreads; t++) { 

threadArgs [t] .chunk = chunk; 

threadArgs [t ] .args = args ; 

threadArgs [t] . initial = initial; 

threadArgs [t] . condition = condition; 

threadArgs [t] .bound = bound; 

threadArgs [t] . step = step; 

threadArgs tt] . chunkSize = chunkSize; 

threadArgs [t] . threadCount - (LPLONG) &threadCount ; 

threadArgs [t] . threadsFinished = threadsFinished; 



switch (mapping) { 

case STHREADS_MAPPING__SIMPLE: 

threadArgs [t] . chunkFirst = t; 

break; 

case STHREADS_MAPPING„DYNAMIC: 

threadArgs [t] . chunkFirst = t; 
threadArgs [t] . counter = ^counter; 
threadArgs [ t] . counterLock = &counterLock; 
break ; 

case STHREADS_MAPPING_BLOCKED : 

threadArgs [t] . chunkFirst = blockFirst; 

threadArgs [ t] . chunkLast = blockFirst + (blockSize - 1); 
threadArgs [t] . chunks tep = 1; 
if (blockRemainder > 0) { 

threadArgs [t] . chunkLast = threadArgs [ t] . chunkLast + 1; 

blockRemainder = blockRemainder - 1; 

} 

blockFirst = threadArgs [t] . chunkLast + 1; 
break; 

case STHREADS_MAPPING_INTERLEAVED : 
threadArgs [t] . chunkFirst = t; 
threadArgs [t] .chunkLast = 

blockSize* ( (unsigned int) numThreads) + t; 
threadArgs [t] . chunks tep = 

(unsigned int) numThreads; 
if (blockRemainder == 0) 

threadArgs [t] . chunkLast = 

threadArgs [t] . chunkLast - ((unsigned int) numThreads) 

else 

blockRemainder = blockRemainder - 1; 
break ; 
default : 

believe ( false) ; 

} 



thread [t] = CreateThread (NULL, stackSize, 
( LPTHREAD_START_ROUTINE ) thr ead_s tar t , 
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(LPVOID) &threa^^pb[t] , CREATE_SUSPENDED, &threadl 
CHECKTHREADCREATE ( thWSd [ t ] ! = NULL ) ; 
if (priority == STHREADS_PRIORITY_PARENT) 

SetThreadPriority (thread[t] , parentPriority) ; 

else 

SetThreadPriority (thread[t] , priority) ; 
ResiimeThread (thread [t] ) ; 



} 



if (priority != STHREADS_PRIORITY_PARENT) { 

SetThreadPriority (parentThread, parentPriority) ; 
believe (re turnOK) ; 

) 

returnCode = WaitForSingleObj ect ( threadsFinished, INFINITE) 

CHECKOTHER ( returnCode ! = WAIT_FAILED ) ; 

returnOK = CloseHandle ( threadsFinished) ; 

CHECKOTHER ( re turnOK == TRUE) ; 

for (t = 0; t < numThreads; t++) { 

returnOK = CloseHandle (thread[t] ) ; 

CHECKOTHER (returnOK == TRUE) ; 

} 

if (mapping == STHREADS_MAPPING_DYNAMIC ) 
DeleteCriticalSection ( ScCounterLock) ; 
free (thread) ; 
f ree ( threadArgs) ; 

return STHREADS_ERROR_NONE ; 



/* */ 

/f==iMulti threaded nested regular for loop (for future release?) */ 
/^j */ 



ini SthreadsNestedRegularForLoop ( 
i=n int nesting, 

y'^ void (*chunk){int first[], int last[], int step[], void *args) , 

l~ void *args, 

M int initial [], int condition [], int bound[], int step[], 

if] int chunkSize[], int mapping [], int numThreads [] , 

int priority, unsigned int stackSize) 
Arguments : 

degree of nesting. 

function to execute chunk of iterations of loop body, 
pointer to arguments of loop body. 

initial value of control variable at each nesting level, 
condition between control variable and bound value 
at each nesting level . 

bound value of control variable at each nesting level, 
step value of control variable at each nesting level, 
number of iterations per chunk at each nesting level, 
mapping of chunks onto threads at each nesting level, 
number of threads at each nesting level, 
priority of threads, 
stack size of threads. 



- nesting 
/fS: - chunk 

i - args 

/r*=: _ initial 

- condition 

- bound 
/'^ - step 

Afj - chunkSize 



void *) function. 



/* - mapping 

/* - numThreads 

/* - priority 

/* ~ StackSize 

/* Returns: 

/* - error code. 

/* Requirements: 

/* - nesting >= 1 

/* - chunk != NULL && 

/* chunk is a valid void (*) (int *, int *, int 

/* - initial != NULL && 

/* initial is an array of at least nesting ints . 

/* - condition != NULL && 

/* condition is an array of at least nesting ints. 

/* - forall (i = 0; i < nesting; i + +) ValidCondition (condition [ i ] ) . 

/* - bound != NULL ScSc 

/* bound is an array of at least nesting ints, 

/* - step != NULL && 

/* step is an array of at least nesting ints. 

/* - forall (i = 0; i < nesting; i++) 

/* ! InfiniteRange { initial [i ] , condition [ i ] , bound[i], step[i]) | 

/* exists (j = 0; j < i; j++) 

/* NullRange ( initial [j ) , condi tion [ j ] , bound [j], step[j]). 

/* - forall (i = 0; i < nesting; i++) 
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/* (chunkSize[i] > O/^H */ 

/* (chunkSize[i] == oUr */ 

/* NullRange ( initial [i] , condition [i ] , bound [i ] , step[i] ) ) . */ 

/* - forall (i =0; i < nesting; i++) ValidMapping (mapping [i] ) . */ 
/* - forall (i - 0; i < nesting; i++) */ 
/* mapping [i] != STHREADS_MAPPING_SIMPLE => */ 

/* (numThreads[i] > 0) | | */ 

/* (numThreads [i] == 0 && */ 

/* NullRange (initial [i] , condition [i] , bound [i] , step[i])). */ 

/* - ValidPriority (priority) | | priority == STHREADS_PRIORITY_PARENT . */ 
/* - ValidStackSize (stackSize) . */ 
{ 

int i ; 

CHECKINPUTVALUE (nesting >= 1); 
CHECKINPUTVALUE( chunk != NULL); 
CHECKINPUTVALUE (initial !=NULL); 
CHECKINPUTVALUE (condition != NULL); 
for (i = 0; i < nesting; i++) 

CHECKINPUTVALUE (ValidCondition (condition [i] ) ) ; 
CHECKINPUTVALUE (bound NULL); 
CHECKINPUTVALUE (step != NULL); 
for (i = 0; i < nesting; i++) { 

if (NullRange (initial [i] , condition [ i ] , bound [i] , step[i])) break; 

CHECKINPUTVALUE ( 

! InfiniteRange (initial [i ] , condition [ i ] , bound [i] , step[i])); 

} 

for (i = 0; i < nesting; i++) 

CHECKINPUTVALUE ( (chunkSize[i] > 0) | | 
(chunkSize [ i] == 0 && 

NullRange ( initial [ i ] , condi tion [ i ] , bound [i], step[i]))); 
for (i = 0; i < nesting; i++) 

CHECKINPUTVALUE (ValidMapping (mapping [i] ) ) ; 
for (i = 0; i < nesting; i++) 

if (mapping [i] != STHREADS_MAPPING_SIMPLE) 
CHECKINPUTVALUE ( 

(numThreads [i] > 0) | | 
(numThreads [i] == 0 && 

NullRange (initial [i ] , condition [i ] , bound [i ] , step[i]))); 
CHECKINPUTVALUE ( 

ValidPriority (priority) || priority == STHREADS_PRIORITY_PARENT) ; 
CHECKINPUTVALUE (ValidStackSize (stackSize) ) ; 

return STHREADS_ERROR_NONE; 

*/ 

/*= Multithreaded general for loop (for future release?) */ 

*/ 

int SthreadsGeneralForLoop ( 

void (*body) (void *control, void *args) , 
size_t controlSize, void *args, 

int (*test) (void *args), void (* increment) (void *args), 
void (*copy) (void *control, void *args) , 
int mapping , int numThreads , 
int priority, unsigned int stackSize) 
/ * Arguments : * / 



function to execute one iteration of loop body. */ 

size (as returned by sizeof) of control variables. */ 

pointer to arguments of loop. */ 

function to test loop termination condition. */ 
function to increment control variables within arguments. */ 

function to copy control variables from arguments. */ 

mapping of iterations onto threads. */ 

number. of threads. */ 

priority of threads. */ 

stack size of threads. */ 

/* Returns: */ 

/* - error code. */ 

/* Requirements: */ 

/* - body != NULL && */ 

/* body is a valid void (*) (void *, void *) function. */ 

/* - test != NULL && */ 



/* - body 

/* - controlSize 

/* - args 

/* - test 

/* - increment 

/* - copy 

/* - mapping 

/* - numThreads 

/* - priority 

/* - StackSize 
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/* test is a valid int (''^^^■id *) function. */ 
/* - increment != ISfULL && */ 
/* increment is a valid void (*)(void *) function. */ 
/* - copy != NULL ScSc */ 
/* copy is a valid void {*) (void *, void *) function. */ 
/* - mapping == STHREADS_MAPPING_SIMPLE | | */ 
/* mapping == STHREADS_MAPPING_DYNAMIC . */ 
/* - mapping != STHREADS_MAPPING_SIMPLE => */ 
/* (numThreads > 0) || (numThreads == 0 ! test (args) ) . */ 

/* - ValidPriority (priority) | | priority == STHREADS_PRIORITY_PARENT . */ 
/* - ValidStackSize (stackSize) . */ 
{ 

CHECKINPUTVALUE(body != NULL) ; 
CHECKINPUTVALUE(test != NULL) ; 
CHECKINPUTVALUE( increment != NULL) ; 
CHECKINPUTVALUE(copy != NULL) ; 

CHECKINPUTVALUE (mapping == STHREADS_MAPPING_SIMPLE | | 

mapping == STHREADS_MAPPING_DYNAMIC) ; 
if (mapping != STHREADS_MAPPING_SIMPLE) 

CHECKINPUTVALUE ( (numThreads > 0) || (numThreads == 0 && ! test (args ))) ; 
CHECKINPUTVALUE ( 

ValidPriority(priority) || priority STHREADS_PRIORITY_PARENT) ; 
CHECKINPUTVALUE (ValidStackSize (StackSize) ) ; 



return STHREADS_ERROR_NONE ; 



} 



/* */ 

/* Synchronization object status constants */ 
/* */ 

#cfefine INITIALIZED 123456 
#(^fine FINALIZED 654321 



*/ 

Flags */ 
*/ 



tiift)edef struct { 

int initialized, finalized; 

LONG numWaiting; 

HANDLE signal; 
>!:£PrivateFlag; 

i" i i 

^^define PRIVATE ( flag Ptr) ( (PrivateFlag *) (flagPtr) ) 
A^Z- 



i'r^ SthreadsFlagInitialize(SthreadsFlag *flag) 

CHECKINPUTVALUE (flag !=NULL); 

PRIVATE (flag) ->initialized = INITIALIZED; 
PRIVATE (flag) ->finalized = -FINALIZED; 
PRIVATE(f lag) ->numWai ting = 0; 

PRIVATE ( flag) ->signal = Cr eat eEvent (NULL, TRUE, FALSE, NULL) 
CHECKSYNCCREATE ( PRIVATE ( flag) ->signal != NULL); 

return STHREADS_ERROR_NONE ; 



int SthreadsFlagFinalize (SthreadsFlag *flag) 
{ 

BOOL returnOK; 

CHECKINPUTVALUE (flag ! = NULL) ; 

CHECKUNINITIALIZED(PRIVATE(flag) ->initialized == INITIALIZED); 
CHECKFINALIZED (PRIVATE (flag) ->finalized == -FINALIZED); 
CHECKINUSE (PRIVATE ( flag) ->numWaiting == 0); 

PRIVATE(f lag) ->f inalized = FINALIZED; 
returnOK = CloseHandle (PRIVATE ( flag) ->signal ) ; 
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CHECKOTHER{returnOK == 
return STHREADS_ERROR_NONE ; 

} 

/* 

int SthreadsFlagSet (SthreadsFlag *flag) 
{ 

BOOL returnOK; 

CHECKINPUTVALUE(flag != NULL) ; 

CHECKUNINITIALIZED(PRIVATE(flag) ->initiali2ed == INITIALIZED); 
CHECKFINALIZED (PRIVATE (flag) ->finali2ed == -FINALIZED); 

returnOK = SetEvent (PRIVATE ( flag) ->signal ) ; 
CHECKOTHER( returnOK) ; 

return STHREADS_ERROR_NONE; 

} 

/* 

int SthreadsFlagCheck (SthreadsFlag *flag) 
{ 

DWORD returnCode; 
CHECKINPUTVALUE(flag !=NULL); 

CHECKUNINITIALIZED ( PRIVATE ( flag) ->initialized == INITIALIZED); 
CHECKFINALIZED(PRIVATE(flag) ->finalized == -FINALIZED); 

Interlockedlncrement (&PRIVATE (f lag) ->numWaiting) ; 

returnCode = WaitForSingleObject (PRIVATE (flag) ->signal , INFINITE); 

CHECKOTHER( returnCode != WAIT_FAILED) ; 

Inter lockedDecrement (&:PRIVATE (flag) ->numWaiting) ; 

return STHREADS_ERROR_NONE; 

} 

/* 

int SthreadsFlagReset (SthreadsFlag *flag) 
{ 

BOOL returnOK; 

CHECKINPUTVALUE(flag != NULL); 

CHECKUNINITIALIZED(PRIVATE(flag) ->initialized INITIALIZED); 
CHECKFINALIZED (PRIVATE (f lag) ->finali2ed == -FINALIZED); 
CHECKINUSE ( PRIVATE ( flag) ->numWaiting == 0); 

PRIVATE(f lag) ->numWai ting = 0; 

returnOK - ResetEvent (PRIVATE (flag) ->signal ) ; 
CHECKOTHER (returnOK) ; 

return STHREADS_ERROR_NONE; 

} 

/* 

#undef PRIVATE 

/* 

/* Counters 

/* 

typedef struct node *link; 
typedef struct node { 

unsigned int value; 

int numWaiting; 

HANDLE signal; 

link next; 
} node ; 



typedef struct { 



# 



int initialized, finali 
unsigned int count; 
link waitingList; 
CRITICAL_SECTION lock; 
} PrivateCounter; 

#define PRIVATE (counterPtr) ((PrivateCounter *) (counterPtr) ) 

/* 

int SthreadsCounterlnitialize (SthreadsCounter *counter) 
{ 

link startSentinel , endSentinel ; 

CHECKINPUTVALUE (counter != NULL); 

PRIVATE (counter) ->initialized = INITIALIZED; 
PRIVATE (counter) ->finalized = -FINALIZED; 
PRIVATE (counter) ->count = 0; 

startSentinel = (link) malloc (sizeof (node) ) ; 
CHECKMEMORYALLOC (startSentinel != NULL); 
endSentinel = (link) malloc (sizeof (node) ) ; 
CHECKMEMORYALLOC ( endSentinel ! = NULL ) ; 
startSentinel->signal = NULL; 
startSentinel->next = endSentinel; 
s tarts entinel->numWai ting = 0; 
endSentinel ->signal = NULL; 
endSentinel ->next = NULL; 
endSentinel ->n\iinWai ting = 0; 

PRIVATE (counter ) ->waitingList = startSentinel; 

InitializeCriticalSection( (LPCRITICAL„SECTION) &PRIVATE (counter ) ->lock) 



return STHREADS_ERROR_NONE ; 



ipA SthreadsCounterFinalize (SthreadsCounter *counter) 

link p, next; 
BOOL returnOK; 

CHECKINPUTVALUE (counter != NULL); 

CHECKUNINITIALIZED{PRIVATE(counter) ->initialized == INITIALIZED); 
CHECKFINALIZED (PRIVATE (counter) ->finalized == --FINALIZED) ; 
M CHECKINUSE(PRIVATE{counter) ->waitingList->next->next NULL); 

''^ PRIVATE (counter) ->finalized = FINALIZED; 

p = PRIVATE (counter ) ->waitingList; 
:.j next = p->next; 

free(p); 

p = next; 

while (p->next != NULL) { 

returnOK = CloseHandle (p->signal ) ; 
CHECKOTHER (returnOK == TRUE); 
next - p->next; 
free(p) ; 
p = next; 

} 

f ree(p) ; 

DeleteCriticalSection( (LPCRITICAL_SECTION) ^PRIVATE ( counter ) ->lock) 



return STHREADS_ERROR_NONE ; 



int SthreadsCounterlncrement (SthreadsCounter *counter, unsigned int amount) 
{ 

link start, p; 
BOOL returnOK; 

CHECKINPUTVALUE (counter !=NULL); 

CHECKUNINITIALIZED(PRIVATE(counter) ->initialized == INITIALIZED) ; 
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CHECKFINALIZED { PRIVATE 
CHECKCOUNTEROVERFLOW ( PRT 



# 



er) ->f inalized == -FINALIZED); 
E (counter ) ->count <= UINT_MAX - amount.); 



EnterCriticalSection ( (LPCRITICAL_SECTION) &PRIVATE (counter ) ->lock) ; 
PRIVATE (counter) ->count = PRIVATE ( counter ) ->count + amount; 
start = PRIVATE (counter ) ->waitingList; 
p = start->next; 

while (p->next != NULL && p->value <= PRIVATE (counter ) ->count) { 
returnOK = SetEvent (p->signal ) ; 
CHECKOTHER(returnOK) ; 
start->next = p->next; 
p = start->next; 

} 

LeaveCriticalSection( (LPCRITICAL„SECTION) & PRIVATE (counter ) ->lock) ; 
return S THREAD S_ERROR_NONE ; 



int 
{ 



SthreadsCounterCheck (SthreadsCounter ^counter, unsigned int value) 

link prev, p; 
link waitingNode; 
BOOL returnOK; 
DWORD returnCode; 

CHECKINPUTVALUE (counter !=NULL); 

CHECKUNINITIALIZED (PRIVATE (counter) ->initialized == INITIALIZED) ; 
CHECKFINALIZED (PRIVATE(counter) ->f inalized == --FINALIZED); 

EnterCriticalSection ( (LPCRITICAL_SECTION) &PRIVATE (counter ) ->lock) ; 
if (PRIVATE (counter ) ->count >= value) 

LeaveCriticalSection( (LPCRITICAL_SECTION) &PRIVATE (counter ) ->lock) , 
else { 

prev = PRIVATE (counter ) ->waitingList; 
p = prev->next; 

while {p->next != NULL && p->value < value) { 
prev = p; 
p = p->next; 

) 

if {p->value == value) { 
waitingNode = p; 

waitingNode->numWaiting = waitingNode->numWaiting + 1; 
} else { 

waitingNode = (link) malice (sizeof (node) ) ; 
waitingNode-> value = value; 

waitingNode->signal = Cr eat eEvent (NULL, TRUE, FALSE, NULL); 
waitingNode ->next = p; 
waitingNode->numWaiting = 1; 
prev->next = waitingNode; 

} 

LeaveCriticalSection { (LPCRITICAL^SECTIGN) &PRIVATE (counter ) ->lock) , 
returnCode = WaitForSingleObj ect (wai tingNode->signal , INFINITE); 
CHECKOTHER ( returnCode != WAIT^FAILED) ; 

EnterCriticalSection { (LPCRITICAL„SECTION) &PRIVATE (counter ) ->lock) , 
waitingNode->numWaiting = waitingNode->numWaiting - 1; 
if (waitingNode->numWaiting ==0) { 

returnOK = CloseHandle (waitingNode->signal ) ; 

CHECKOTHER (returnOK == TRUE); 

free (waitingNode) ; 

} 

LeaveCriticalSection ( (LPCRITICAL_SECTION) &PRIVATE ( counter ) ->lock) , 



return STHREADS_ERROR_NONE ; 



mt 
{ 



SthreadsCounterReset (SthreadsCounter ^counter ) 

link p, q; 
BOOL returnOK; 
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CHECKINPUTVALUE { counter NULL ) ; 
CHECKUNINITIALIZED (PRIVATE (counter) ->initialized == INITIALIZED) 
CHECKFINALIZED (PRIVATE (counter) ->finalized == -FINALIZED); 
CHECKINUSE (PRIVATE (counter) ->waitingList->next->next == NULL) ; 

PRIVATE (counter ) ->count = 0; 

p = PRIVATE (counter) ->waitingList ; 

q = p->next; 

while (q->next != NULL) { 
p->next = q->next; 

returnOK = CloseHandle (q->signal) ; 
CHECKOTHER(returnOK == TRUE) ; 
free(q) ; 
q ~ p->next; 

} 

return STHREADS_ERROR_NONE; 



#undef PRIVATE 

/* */ 

/* Locks */ 
/* */ 

typedef struct { 

int initialized, finalized; 
12 HANDLE holder; 

CRITICAL_SECTION lock; 
jrivateLock ; 

#3|fine PRIVATE (lockPtr) ( (PrivateLock *) (lockPtr) ) 

*/ 

iirft SthreadsLocklnitialize (SthreadsLock *lock) 

CHECKINPUTVALUE (lock != NULL); 

i::^ PRIVATE (lock) ->initialized = INITIALIZED; 
PRIVATE (lock) ->finalized = -FINALIZED; 
PRIVATE ( lock ) ->holder = NULL; 
j"^ InitializeCriticalSection( (LPCRITICAL_SECTION) &PRIVATE { lock) ->lock) ; 

"Z return STHREADS_ERROR_NONE ; 

/*". */ 

int SthreadsLockFinalize (SthreadsLock *lock) 
{ 

CHECKINPUTVALUE (lock != NULL); 

CHECKUNINITIALIZED (PRIVATE (lock) ->initialized =^ INITIALIZED); 
CHECKFINALIZED(PRIVATE(lock) ->f inalized == -FINALIZED); 
CHECKINUSE ( PRIVATE ( lock) ->holder == NULL); 

PRIVATE ( lock) ->f inalized = FINALIZED; 

DeleteCriticalSection( (LPCRITICAL_SECTION) &PRIVATE ( lock) ->lock) ; 
return STHREADS_ERROR_NONE ; 

} 

/* */ 

int SthreadsLockAcquire (SthreadsLock *lock) 
(. 

HANDLE thisThread; 

thisThread = GetCurrentThread ( ) ; 
believe { thisThread! = NULL); 
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i 



VAW(lock)->initialized == INITIALIZED) V 



CHECKINPUTVALUEdock ! =1 

CHECKUNINITIALIZED(PRIVA^(lock)->initialized == INITIALIZED)?" 
CHECKFINALIZED (PRIVATE (lock) ->finalized == -FINALIZED) ; 

EnterCriticalSection( (LPCRITICAL_SECTION) &PRIVATE (lock) ->lock) ; 
believe (PRIVATE ( lock) ->holder == NULL || 

PRIVATE ( lock) ->holder == thisThread) ; 
CHECKLOCKHELD (PRIVATE (lock) ->holder == NULL) ; 
PRIVATE (lock) ->holder = thisThread; 

return STHREADS_ERROR_NONE ; 

} 

/* */ 

int SthreadsLockRelease (SthreadsLock *lock) 
{ 

HANDLE thisThread; 

thisThread = GetCurrentThread ( ) ; 
believe (thisThread! = NULL); 

CHECKINPUTVALUEdock != NULL); 

CHECKUNINITIALIZED (PRIVATE (lock) ->initialized == INITIALIZED); 
CHECKFINALIZED(PRIVATE(lock) ->finalized == -FINALIZED); 
CHECKLOCKNOTHELD ( PRIVATE ( lock) ->holder thisThread); 

PRIVATE ( lock) ->holder = NULL; 

LeaveCriticalSection( (LPCRITICAL„SECTION) &PRIVATE (lock) ->lock) ; 
1:1 return STHREADS_ERROR_NONE ; 

*/ 

Wdef PRIVATE 

*/ 

A!u Barriers */ 

A'fti * / 

!. J 

tfypedef struct { 

int initialized, finalized; 
int numThreads; 
int numWaiting; 
HANDLE gate [2] ; 
,,Z int currentGate; /* 0 or 1 */ 
CRITICAL_SECTION lock; 
jrivateBarrier ; 

#define PRIVATE ( barrier Ptr) ( (PrivateBarrier *) (barrierPtr) ) 

/* */ 

int SthreadsBarrierlnitialize (SthreadsBarrier *barrier, int numThreads) 
{ 

CHECKINPUTVALUE (barrier != NULL); 
CHECKINPUTVALUE (numThreads >= 1); 

PRIVATE (barrier) ->initialized = INITIALIZED; 
PRIVATE (barrier) ->finalized = -FINALIZED; 
PRIVATE (barrier) ->numThreads = numThreads; 
PRIVATE (barrier ) ->numWai ting = 0; 

PRIVATE (barrier) ->gate[0] = CreateEvent(NULL, TRUE, FALSE, NULL); 

CHECKSYNCCREATE (PRIVATE (barrier ) ->gate[0] != NULL); 

PRIVATE (barrier) ->gate[l] = CreateEvent(NULL, TRUE, TRUE, NULL); 

CHECKSYNCCREATE (PRIVATE (barrier) ->gate[l] != NULL); 

PRIVATE (barrier) ->currentGate = 0; 

InitializeCriticalSection( (LPCRITICAL_SECTION) &PRIVATE (barrier ) ->lock) ; 
return STHREADS_ERROR_NONE ; 

} 

/* 
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s (^roreadsBarrier *barrier) 



int SthreadsBarrierFinalize 
{ 

BOOL returnOK; 

CHECKINPUTVALUE {barrier != NULL) ; 

CHECKUNINITIALIZED (PRIVATE (barrier) ->initialized == INITIALIZED) ; 
CHECKFINALIZED(PRIVATE (barrier) ->finalized == -FINALIZED); 
CHECKINUSE (PRIVATE (barrier ) ->numWai ting == 0); 

PRIVATE (barrier) ->finali zed = FINALIZED; 

returnOK = CloseHandle ( PRIVATE (barrier ) ->gate [ 0 ]) ; 

CHECKOTHER (returnOK == TRUE) ; 

returnOK = CloseHandle ( PRIVATE (barrier ) ->gate [ 1 ]) ; 
CHECKOTHER (returnOK == TRUE) ; 

DeleteCriticalSection( (LPCRITICAL_SECTION) &PRIVATE (barrier ) ->lock) ; 
return STHREADS_ERROR_NONE ; 

} 

/* */ 

int SthreadsBarrierPass (SthreadsBarrier *barrier) 
{ 

int currentGate, nextGate; 
BOOL returnOK; 
DWORD returnCode; 

CHECKINPUTVALUE (barrier != NULL); 

CHECKUNINITIALIZED(PRIVATE(barrier) ->initiali2ed == INITIALIZED) ; 
CHECKFINALIZED (PRIVATE (barrier) ->finalized == -FINALIZED); 

EnterCriticalSectionC (LPCRITICAL_SECTION) &PRIVATE (barrier ) ->lock) ; 
currentGate = PRIVATE (barrier ) ->currentGate; 

PRIVATE (barrier ) ->numWai ting = PRIVATE (barrier ) ->nuinWai ting + 1; 
if (PRIVATE (barrier ) ->numWai ting == PRIVATE (barrier ) ->numThreads ) { 
nextGate = (currentGate + 1)%2; 

returnOK = ResetEvent (PRIVATE (barrier) ->gate [nextGate] ) ; 
CHECKOTHER (returnOK) ; 
PRIVATE (barrier) ->numWai ting = 0; 

returnOK = SetEvent ( PRIVATE (barrier ) ->gate [currentGate] ) ; 
CHECKOTHER (returnOK) ; 

PRIVATE (barrier ) ->currentGate = nextGate; 

LeaveCriticalSection ( (LPCRITICAL_SECTION) &PRIVATE (barrier) ->loc}c) ; 
) else { 

LeaveCriticalSection ( (LPCRITICAL_SECTION) &PRIVATE (barrier) ->locl^) ; 
returnCode = WaitForSingleObj ect { 

PRIVATE (barrier) ->gate [ currentGate ] , INFINITE) ; 
CHECKOTHER (returnCode != WAIT_FAILED) ; 

} 



return STHREADS_ERROR_NONE ; 



int SthreadsBarrierReset (SthreadsBarrier ^barrier, int numTlireads) 
{ 

BOOL returnOK; 

CHECKINPUTVALUE (barrier != NULL); 

CHECKUNINITIALIZED (PRIVATE (barrier) ->initialized == INITIALIZED) 
CHECKFINALIZED (PRIVATE (barrier) ->finalized -FINALIZED); 
CHECKINUSE (PRIVATE (barrier) ->numWaiting == 0); 
CHECKINPUTVALUE (nuinThreads >= 1); 

PRIVATE (barrier ) ->numTlireads = numThreads; 
PRIVATE (barrier) ->nuinWai ting = 0; 

returnOK = ResetEvent (PRIVATE (barrier) ->gate [0] ) ; 
CHECKOTHER ( returnOK) ; 

returnOK = SetEvent (PRIVATE (barrier) ->gate [1 ]) ; 

CHECKOTHER (returnOK) ; 

PRIVATE (barrier) ->currentGate = 0; 
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# 

/* 

#undef PRIVATE 

/* 

/* Priorities 

/* 

int SthreadsGetCurrentPriority (int *priority) 
{ 

HANDLE currentThread; 
int currentPriority ; 

CHECKINPUTVALUE (priority != NULL) ; 

currentThread = GetCurrentThread ( ) ; 
believe (currentThread != NULL) ; 

currentPriority = GetThreadPriority (currentThread) ; 
believe (currentPriority != THREAD_PRIORITY_ERROR_RETURN) ; 

*priority ~ currentPriority; 

return STHREADS_ERROR_NONE; 

} 

/* 

ifrit SthreadsSetCurrentPriority (int priority) 

''f HANDLE currentThread; 
BOOL returnOK; 

CHECKINPUTVALUE ( ValidPriority (priority) ) ; 

1=^ currentThread = GetCurrentThread () ; 
rn believe (currentThread != NULL); 

;i=r returnOK = SetThreadPriority ( currentThread, priority) ; 
believe (returnOK) ; 

return STHREADS_ERROR_NONE ; 
^ 



0 



return STHREADS_ERROR NL 
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